'ѡСѡʵݵĵԪ


ActiveSheet.UsedRange.Select


'ʵС 

Dim H As Integer
 H= ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row 'λ1(A)ǿյԪк
 H= ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row   'λ1(A)ǿյԪк

Dim L As Integer
L = Cells(1, Columns.Count).End(xlToLeft).Column 'Ե1Ϊݡ1ʵһԪҲݣֵΪ1ʹ

'
'ǰãʵУСǿеģ
  MsgBox ActiveSheet.UsedRange.Rows.Count , , "ǰʵ"     'Ϊգ1
  MsgBox ActiveSheet.UsedRange.Columns.Count, , "ǰʵ"   'Ϊգ1
  
 